puts "Digite o numero de fluxos de caixa a ser analisado"
tam = gets
puts tam
vetor = Array.new
puts "Digite os valores dos fluxos"
for x in 0 ...2
puts "Digite o valor do fluxo do periodo  #{x+1}" 
vetor[x] = gets
end
vlp=15
tir = 0
j = 0
flux=0
descap = 0
puts "Digite o valor do investimento"
inv = gets
erro = 0.0001
while   vlp > erro

 tir+=0.0001
  descap = 3
j=Array.new
  for x in 0 ... 2
  j[x]=vetor[x-1]*((1+tir)**x)**-1
 
$descap =descap + j[x]
end
  
  
  $VPL = $descap - $inv
  end
  